﻿Imports BE.BE
Imports BL.BL

Public Class frmGestionAbogadosAseguradora
    Dim mlista As New List(Of AbogadoAseguradora_BE)
    Private Sub frmGestionAbogadosAseguradora_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Try
            'Helper_FL.setearPermisos(frmPrincipal.usr, Me)
            mlista = AbogadoAseguradora_BL.listarAbogadoAseguradora
            Me.ComboBox1.DataSource = Asegurador_BL.listarAsegurador
        Catch ex As Exception
            MsgBox(ex)
        End Try

        Me.DataGridView1.DataSource = mlista

    End Sub

    Private Sub btnClienteNuevo_Click(sender As Object, e As EventArgs) Handles btnClienteNuevo.Click
        Dim mabogaasegura As New AbogadoAseguradora_BE

        mabogaasegura.Apellido = Me.TextBox1.Text
        mabogaasegura.Nombre = Me.txtNombre.Text
        mabogaasegura.DNI = Me.TextBox4.Text
        mabogaasegura.FechaNacimiento = Me.TextBox2.Text

        Dim mtel As New Telefono_BE

        mtel.Numero = Me.TextBox5.Text


        mabogaasegura.Telefonos.Add(mtel)

        mtel = New Telefono_BE

        mtel.Numero = Me.TextBox6.Text


        mabogaasegura.Telefonos.Add(mtel)

        Dim mAseguradora As New Asegurador_BE

        mAseguradora = Me.ComboBox1.SelectedValue

        mabogaasegura.Asegurador = mAseguradora



        Try
            AbogadoAseguradora_BL.altaAbogadoAseguradora(mabogaasegura)

            mlista = AbogadoAseguradora_BL.listarAbogadoAseguradora
        Catch ex As Exception
            MsgBox(ex)
        End Try


        Me.DataGridView1.DataSource = mlista


    End Sub
End Class